sub msxvideo9990vdokeseq(tzvl2 as uinteger)
  out $60,tzvl2 band $FF
  out $60,(int(tzvl2/256)) band $FF
  end sub
